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Editorial 


Welcome to this. the thirteenth issue of the newsletter. This time around, 
we have something of a video theme. Geoff has some details on CUGI’s 
genlock, John Pritchard relates a tale of woe involving an Amiga 2000, and 
Mike Davison gives a first hand report of the Newtek Video Toaster. Thanks 
must go to Colm O'Rourke for contacting both John and Mike and asking 
them for permission to republish their articles, and to John and Mike for 
agreeing. 

On a different topic, Tommy Rolfs gives an introduction to Forth, a 
language which has managed to stay out of the mainstream during the past 
few years. If you're looking for a slightly different style of programming, 
this could be right up your street. 

What else has been happening? Well, I’m sure most of you must be 
aware that Kickstart 2.0 is due to (finally) be released for the A500 and the 
A2000. According to a posting on Usenet, Kickstart 2.0 will be launched 
at a forthcoming Amiga exhibition in Orlando on 26-28 July. I’m writing 
this on 25 July, so it remains to be seen how accurate this is ... still, it’s 
widely known that the final version of Kickstart 2.0 (v37.175) was sent to 
the ROM production plant about a month ago, so there may be a grain of 
truth in it ... time will tell. 

Speaking of the Amiga 3000 (weren’t we?), here's something to make you 
suitable envious. Across the water in the U.S., Commodore are currently 
running a promotion called the Power-up Program. The deal is simple: go 
to any authorised dealer with the front page of the manual for your VIC- 
20, C64, C128, A500 or A2000 (with the serial number of the computer 
written on it) and you get up to $1500 off the price of an Amiga 3000. This 
brings the entry level model (A3000-16-50) to about $1850, or a little over 
IR£1200. Not too shabby, eh? 

On a different note, the turnout for the summer quiz a few weeks ago 
was a bit disappointing. Those who turned up enjoyed a great night pitting 
their wits against the combined efforts of Geoff, Brian, Leon and Aidan, 
with few people going away empty handed. And not a computer question 
in sight! 

Once again, I’m almost out of space. Don’t forget to fill in the question- 
naire you should have received with this newsletter. Help us to help you- 
In the meantime, enjoy the summer break and get writing those articles for 
the next issue. See you in September ... 


E.C. 


— 


Graphic Events 
by John Pritchard 


“Buy our Super VHS Camcorder and become a Spielberg overnight.” Have 
you read the spiel? Do you believe it? Well it’s true! Alf Spielberg, by the 
Way, is an unemployed croupier lodging in the Gorbals, ‘Super’ is an Urdu 
word meaning ‘half-baked’ and VHS is short for Vindaloo Home Stores. 


But all that is history. Today the hype says “Buy an Amiga and become 
a Leonardo instantly.” It’s true! Leonardo, or to give him his original name, 
Len Everard, is a destitute blind beggar from Wasted Flats. Tragically, he 
went blind fighting a two year battle trying to create ‘Paintbox’ graphics 
armed solely with an Amiga 500, a pirated copy of Fantavision and no 
discernable creative juices. Now, what he really needed was serious advice 
before purchase — a commodity scarcer than hens’ teeth. 


The best advice to most people who are about to purchase gadgets is 
simple: don’t. They almost never come up to your expectations because 
those expectations have been hyped up to almost unreal levels by the people 
pedalling the gadgets. Most equipment these days is quite marvellous in 
its potential but that potential extends only as far as your own. Therein 
lies the rub, for these personal abilities are frequently best described as 
‘modest.’ Now there are no doubt one or two unheralded geniuses around 
who can produce nuclear weapons, gold bars and anything else you could 
want on a ninth-hand Amiga 500 found in a disused Anderson bomb shelter, 
and congratulations to them. But please don’t write and we promise we 
won’t ring you. 

This article is for normal people by a comparatively normal person. Nor- 
mality being, in my view, someone who, upon discovering the need to pro- 
duce graphics for his video productions, reluctantly purchases a computer 
for that purpose only and simply wants quick, efficient results. He or she 
really doesn’t want a computer but has to have it as a means to an end. 
Programming languages, peripherals etc., just not my scene I’m afraid. 


Take for instance the Amiga. If you buy an Amiga 500, the value for 
money is excellent. But unless you enjoy having to insert and alternately 
remove your floppy disk a zillion times simply to make a back-up copy of 
your latest program disk, then you will have to buy an extra disk drive. If 
you then want to try your hand at animation, you'll need more memory - 
many programs require at least one megabyte of memory to operate and 
the Amiga 500 has only half a meg. 
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Hands up anyone who was told of these shortcomings in a machine that, 
while widely hyped as the answer to every videographer’s needs, was really 
designed for games players. Hands up anyone who was ever given any really 
useful information by anyone selling computers. “Take the cardboard box 
and go” seems to be the usual advice. I had at least discovered this before 
buying, so grudgingly forked out the £2,000 required for an Amiga 2000 
with second disk drive fitted, complete with monitor and printer. By now I 
had decided that to include word processing would help justify the cost to 
some extent. I was now in business, low resolution graphics, simple flying 
logos and so on. 

Then someone wanted slides produced. No problem, thought I. Just 
switch to hi-res graphics and hey presto - not enough memory! What? 
Whaaaat?! S’right. One or two pictures and then memory problems! Oh 
yes, you can type endless letters, probably the whole of the Encyclopedia 
Brittanica as far as I know, but graphics? Pshaw as they say in comics, no 
chance. 

The next acquisition, hyped by the Amiga magazines, was a program 
called Deluxe Video III, a choreography supplement to DPaint III. This 
program couldn’t do a damn thing with my now pitiful looking one meg. 
After a thousand refusals, I was forced to the conclusion that if one wanted 
versatility in graphic design, then loads of memory was essential. 

After much soul searching, I decided that the tiny profit we had made 
last year should be invested in an upgraded A2000. I was just about to 
spend my money on an A2000-HD with a four-fold increase in RAM and 
an MCP when I discovered in the nick of time, that all this would have 
been useless without a ‘Fat Agnus’ chip! Can you imagine a large company 
was just about to relieve me of three thousand hard-earned ones without a 
mention of Fat Agnus? I could have gone to my grave penniless. 

At my age, a Fat Agnus sounded pretty tempting whatever it was, so | 
enquired further. Briefly, CHIP memory is required to put graphics on the 
screen and an Amiga 2000 has only half of its one meg in CHIP mem (a 
slim Agnus perhaps’), the rest being FAST mem. 

So now the die was cast. A 40 meg hard disk, 4 megs of fast ram, 1 meg 
chip ram and a ‘Turbo Card’ to speed everything up by as much as 600%. 
What ecstasy ... nirvana. One small thing I had to remember was to give 
my wife a conservative estimate of the cost of the project, which by now 
had reached almost £3000. I told her it came to twenty two pounds and 

seventy pence. She’s developed this funny old-fashioned way of looking at 
me lately. 
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When my newly installed programs booted up in three seconds instead of 
the usual forty five seconds, nirvana was surely mine, I thought. Then the 
nightmare began. The machine started crashing out, seizing up, refusing to 
proceed, stopping dead with mule-like obstinacy during normal work which 
had never bothered the previous machine. Two months of my life were now 
plagued with problems which became unsurmountable. Forty-five megs of 
memory were soon unable to cope with the work that one meg tackled easily. 


The suppliers could find no fault and returned it. When I got it back, it 
started playing up worse than ever and eventually when asked to produce 
two consecutive low-res screens, would retort INSUFFICIENT MEMORY! I 
know it seems unlikely, but my delight with the Amiga was almost tinged 
with a smidgin of disappointment at this stage. 


I returned the machine for the second time, reminding them that I had 
paid half the price of a good second hand car for this thing and that I 
required them to wrap it in cotton-wool and from the roof of the Customs 
- House, launch it gracefully into the acid sludge below (nee River Liffey). 
I would no longer give it house room and would only accept a brand new 
machine. 


When the new machine arrived, I agreed to spend half a day at their place 
to check that the machine functioned properly before bringing it home. The 
Amiga performed faultlessly. I took it home and two days later it corrupted 
its hard disk. After numerous phone conversations, I eventually learned how 
to re-install my hard disk, a two hour job, eight programs and over eighty 
fonts. I am blessed with an amazing degree of patience for some situations 
and this is one of them. And yet I don’t know why but after the twenty 
third re-installation within two weeks, something seemed to corrupt inside 
my brain too. 


I rang Commodore. (Ha, ha, ha, ha, ha, ha.) The phone was answered 
by Manuel from Fawlty Towers who knows Naarthing; in line with current 
British tradition, promises to ring back are completely meaningless, so new 
tactics were called for. After considerable efforts, I managed to contact what 
appeared on the phone to be a humanoid with intelligence and informed him 
that friends of mine who breed deadly brain-eating fungi would shortly take 
him and all who sail in the bad ship Commodore, rivet them into the latest 
version of Obese Agnus, switch on the power and await the results. 


Despite protestations from Commodore that they weren't there to satisfy 
customers as their job was simply to boost sales, I somehow managed by 
means of hysterics, threats, fury, Thatcherite single-mindedness and similar 
forms of reasoning, to persuade them to send engineers to do something. 
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What they actually did (having failed to turn up when promised of 
course) on the second appointment, was to replace the motherboard which 
is a large green Ryvita covered in blobs of solder. My agony was at last 
over, so long as I remembered that certain programs don’t work with the 
turbo card, such as Vidi Amiga and Deluxe Video III. No one ever tells you 
of these problems until you've had a stroke or an apoplectic fit. 

There followed a whole month of trouble-free computing ... bliss. Then 
on a simple 72 frame animation using my latest program Sculpt 4D, the un- 
thinkable happened again — it crashed out, stopped like a mule. I rebooted 
and the same thing happened a second time, now corrupting the hard disk 
yet again. I am convinced that God is doing this to me because I’m an 
atheist. I am now awaiting a promised return call from Commodore. Never 
had one returned before. Maybe this time... 


DO Ni tee E E O E 


Just a C Quickie 
by Geoffrey J. Reeves 
We all know that in C: 


char *msg = "Hello world."; 


printf("%7s\n", msg); 


will print at least 7 characters of the message string. It will add spaces to 
the output if the string is less than 7 characters long. But this means that 
if you are printing out a table of information (including strings) and if you 
are hoping to get perfect tabulation, you’re in trouble. You'll have to set 
the width parameter (7 above) to the maximum length of the text you re 
printing. However, you might like to experiment with: 


printi("/%.7s\n", msg); /* I’ve added a decimal point */ 


or even 


«/ 


printf("47.7s\n", msg); /* I’m messing about now --- 


Í wonder what happens if you use -7.8 or 7.6 or if the string is short, tor 


example "cat". 
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Convergence and Divergence in Computing 


by Russell Wallace 


An immature technology exhibits divergence, which means that everyone 
does things differently because people haven't yet figured out what's the 
best way to do them. A more mature technology is marked by convergence 
as official and de facto standards are worked out. Consider typewriters, 
mains electricity and video recorders as examples. So where does comput- 
ing fit into this scheme? The three elements of computing are hardware, 
operating systems and programming. Hopefully it will be found that each 
of these is converging. 

The first example of convergence is computer hardware. Go back 20 
years and you’ll find some incredibly weird hardware by modern standards: 
processors with word sizes like 17 bits and 23 bits, computers with the 
arithmetic units mounted as external devices rather than being on the cen- 
tral processor, computers that did addition by looking up tables. 10 years 
ago things had partly settled down — everyone had realized that processors 
should have word sizes of powers of two, so you had the 8-bit, 16-bit, 32-bit 
and 64-bit (in high-end computers) processors. 

Even so, every manufacturer still made its own proprietary line of mini 
and mainframe computers which wouldn’t work with anyone else’s equip- 
' ment and had a complicated custom-designed instruction set. Then micro- 
computers based on commercial microprocessors appeared and started to 
catch up with the minicomputers in power. Today’s microcomputers are 
more powerful than even a modern minicomputer [Not so - Ed] and are 
catching up on the mainframes, and displacing them from many applica- 
tions; also microcomputers store data on standard hard disk drives, stan- 
dards for tapes and optical disks are emerging, and Ethernet is solidly in 
place as a standard for connecting them together. 


So the hardware market was converging on microcomputers based on 
commercial 16-bit and 32-bit microprocessors (with some 64-bit micropro- 
cessors coming out now). But there was still room for argument in the 
design of the microprocessors themselves. In the early eighties the two 
main processor families were the Intel 8086 (used in the IBM PC) and the 
Motorola 68000 (used in the Amiga, Macintosh and Atari ST), with sub- 
stantially different designs. The 68000 design was clearly superior to the 
8086 but even so it wasn’t necessarily the best that could be done. Part of 
the difference was that the 68000 had a large bank of general-purpose reg- 
isters which had become obviously the right way to go, but there was still 
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r design completely different from both the 


8086 
ely because both chips used what was cal] ANd the 


room for anothe 


68000. This was larg | : ed microgog 
which means that when the chip executed a machine code instruction ; 
i 


didn't execute it directly but called a tiny program inside a ROM mem, 

in the processor. The idea of this was that each machine code structing 
could then be made much more complex and powerful than would other. 
wise be the case. 50 you could come up with a completely different design 
g the microcode programs that carried out the machine code 


just by changin | 
the industry could not be said to have converged op any 


instructions, and 
one design. 

Then some people realized two things: first, that by getting rid of the 
microcode you could make the processor execute many times more instruc- 
tions per second, and secondly that in practical terms the direct-wired in- 
structions you ended up with were not significantly less powerful than the 
microcoded instructions. So they built what were called RISC (Reduced 
Instruction Set Computing) processors (as opposed to the 8086 and 68000 
which were CISC or Complex Instruction Set Computing chips). One of 
the first commercial RISC machines was the Acorn Archimedes. It ran at 
8 MHz, the same clock speed as the 68000 machines which were around at 
the time, which meant that its manufacturing costs were similar, but it exe- 
cuted about five times as many instructions per second! And I’m assured by 
people who have programmed both machines that programs almost always 
take fewer instructions on the ‘reduced instruction set’ Archimedes than on 
the ‘complex instruction set’ 68000. 


Since then, many more RISC chips have appeared (another advantage 
of RISC chips is that they are relatively easy to design). While the detail 
vary, the essential architectural features are the same for all of them - lots 
of registers and cache memory so the processor doesn't get slowed dows 
waiting for main memory, pipelining to speed up processing, hard-wure 
instructions, 32 bits or 64 bits. And RISC chips are of course easier t0 
implement in newer technologies - an experimental RISC chip has alread J 
been implemented in gallium arsenide clocked at 150 MHz, and 0P" 
ia Sm if and when they appear will probably have a similar desig 

course, parallel processing is also on the horizon and RISC chips 2” 


relatively simple and easy to get working together as well as separately 


ie ae has finally converged on what nearly everyone ao a 
with the viva wk and we can all breathe a sigh of nour at 
there are pide building systems around these machines. : 

one or two flies in the ointment, like the many, many y ears li 
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take to replace the tens of millions of 80x86-based PCs in the world but at 
least we know where we're going even if we’re not there yet. What about 
the other two elements of computing, operating systems and programming? 


Programming started out in the form of machine code and later assem- 
bly language programming on the hardware that was available and so was 
obviously just as divergent as the hardware. Then FORTRAN was invented 
which was a step forward in that you could write one program and have it 
work on any computer. Millions of lines of code were written in FORTRAN 
and it looked like a pretty solid standard, apart from the slight problems 
with FORTRAN itself not being completely standardized. Then along came 
Lisp and COBOL, two new programming languages neither of which bore 
the slightest resemblance to FORTRAN or each other. None of the three 
languages could be identified as the best one. Things started to look up 
when Algol was invented in the early 60’s; it was based on an attempt to 
analyze what was required in a general purpose programming language. 
Even so, it still wasn’t perfect, as witnessed by the invention of PL/1 some 
time later. 


Then something happened that made everything okay and everyone lived 
happily ever after. That something was C, a programming language in- 
vented by Brian Kernighan and Dennis Ritchie for writing operating sys- 
tems, which turned out to be so good that nothing invented before or since 
can compete with it - most of the new programs written today are written 
in C. New trends can be coped with by adding extensions such as C++ 
and Objective-C for object-oriented programming and Linda which is a no- 
tation for concurrent programming which can be added to any sequential 
programming language including C. And C itself has converged on the ANSI 
standard. As with hardware there’s still a large installed base of older tech- 
nologies to be replaced (an estimated 81,000,000,000 (!!!) lines of COBOL 
code in the world) but we know where we're going even if we’re not quite 
there yet. 

What about operating systems? Unfortunately operating systems are 
not converging in much the same way that the sum to infinity of N N is not 
converging. This may seem a surprising statement in view of the success 
of Unix. Again, if you go back a couple of decades, every manufacturer 
had its own operating system that wouldn't work with anyone else’s equip- 
ment, but Unix, invented along with C, has been steadily displacing other 
operating systems on mini and mainframe computers. It was the dominant 
operating system from the beginning on the high-end computers using RISC 
processors and has an installed base there of hundreds of thousands, maybe 
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aaa steadily growing. The main obstacle Is the vast Pool of 808 
ased computers using proprietary operating systems (MS-Dos 
DOS. Mac OS. TOS (Atari ST) and the operating system u i 
on the low-end models of the Archimedes). These will take a very long ic 
to replace. but the process may be accelerated by versions of Unix which 
can run programs for the older operating Systems ~ several already exis 
So what’s the problem: 
The problem is user interfaces. The release of the Macintosh in 1984 
spelled the doom of portable software. Users loved the WIMP (Windows, 
Icons. Mouse, Pointer) interface but it totally dominates programs written 
for it. You can’t even port programs written for a plain 80 x 25 terminal to 
the Mac, or vice versa. Furthermore its success forced everyone else to copy 
‘+ MS-DOS is now the only microcomputer operating system that’s even 
available without a WIMP interface. All the RISC machines that nomi- 
nally run the same operating system — Unix — have different, incompatible 
variants of it. A program written for Sun OS won’t work on X Windows. 
Even a program written for one manufacturer’s version of X Windows won't 
usually work on another’s. Programs have to be specifically advertised as 
working on, say, a SPARCstation. They won't run on an IBM RS/6000 
even though both machines run Unix. We’re back to the bad old days of 
hardware specific programs before we were properly out of them. And the 
problem is getting worse, not better, because each vendor is adding more 
and more features to the operating system and user interface, and more 
oe ae appearing. The increasing complexity means it's getting more 
t to write programs for one operating system never mind trying t0 

make them portable. 


Š Could this disaster have been avoided? Possibly, if Apple had included 
e WIMP interface for selecting files and programs but then had allowed 
programs to run in a conventional 80 x 25 display. Possibly 20t- Anyway 


it’s too late now. We’ 
not working. uck with a future of doom, chaos and P gram 


millions. 
and 68000-b 
OS/2. Amiga 
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What did you say? 
by Geoffrey J. Reeves 


—— 


«<< 


Some issues ago I discussed some aspects of Natural Language Parsing and 
how it might apply to writing a text adventure game. This time. I'll present 
some of the problems I encountered with the vocabulary for the game and 
how I dealt with them. As you may recall, I set up various sections within 
my overall vocabulary including: 


e Directions (NORTH, SOUTH, EAST, WEST. UP, etc.) 
e Prepositions (OF, UNDER, etc.) 

e Ignorable words (THE, A, AN) 

e Conjunctions (AND, THEN) 

e Adjectives (OPEN, CLOSED, CLOSE (!!), etc.) 

e General words 


Even within each section, the words were not alphabetically ordered and 
this presented the first problem — searching a long unordered list is down- 
right thick! So I needed to sort them but to still know where each word was 
originally placed. The solution — have a list of words and a list of original 
positions. Sorting the words would now involve keeping the position with 
the word in case I needed to swap words while getting them in order. Here's 
what I mean: 


book 
concerned. 
hobbits 

is 

largely 
prologue 
this 
with 


prologue 
this 
book 
is 
largely 
concerned 
with 
hobbits 


Nou fF WN FF © 


Now if you look up the word hobbits and read its corresponding position, 
you'll get 7. This means that the word hobbits was originally word number 7. 
First we must sort the words along with their original positions. 
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The plan so far 1s: 


o Read in the words into an array (word(0], word[i], ..., word{a]) 


o Set the original positions (pos [0], pos[1], ..., pos[n]). 


e Sort the words. 


Reading in the Words 
Ideally, you should keep the words in a file on disk and read them in from 


there. However, you could also include them in your source code. While 
this is definitely NOT the best way, it does allow you to test out my ideas 
quickly. You can declare and define an array of string pointers as follows: 


char *xword[] = { "prologue", "this", "book", "is", "largely", 
: "concerned", "with", "hobbits" }; 


On a note or two of clarification, the above declares an array of pointers 
to strings. Because of the [], the compiler must calculate that there are 
8 pointers. So word[1] is a pointer to the string "this". I hope you 
didn’t think I meant "prologue" — that’s word[0]! Because the strings 
are contained in the source, the pointers are addresses within the object 
code and furthermore, there is no memory wasted because some words are 
shorter than others — the compiler packs them neatly together. If you were 
going to read in words from disk, you wouldn’t know (a) the number of 
words and (b) the maximum length needed. So you’d probably declare an 
array of strings as follows: , 


char word(MAX_WORDS] [MAX_LENGTH] : 


Then you’d read each word into its correct array element. There are various 
problems with this, not least of which is wastage. You must over-estimate 
the number of words (to be safe) and if you need to store words such 4s 
chocolate or vegetables, then words such as eat and hit will leave ™ 

unused memory. Ill show (in another article) how I dealt with this problem. 


are the Original Positions 0 
pos [1] re is very simple since all I want is for pos[0] to be ae gA 
with 0 and T EN to 2, and so on. All I do is write a loop which s$ 8- 
a eae = with ... ah... now there’s a problem. No, don't say ter 
because you’ve been paying attention, but the oop" 


has no 8 stored anywhere. Now if I’d been reading in the words from disk, 
I'd have had a variable declared for this very purpose. Solution — there is a 
sizeof operator and the following will work: 


char *word[] = { "prologue", "this", "book", "is", "largely", 
"concerned", "with", "hobbits" }; 


int num_of_words = sizeof(word) / sizeof(word([0]); 


Actually, it’s a bit cheeky - get the computer to work out the size of the 
array and divide it by the size of one item. If you’re counting the number of 
letters in each word ... oh dear ... I’ll try again. Remember that I declared 
an array of pointers (in other words, a list of memory addresses) so word is 
an array of addresses and word[0] is one of these addresses. Each of these 
addresses points to a string of characters in memory. So if a pointer needs 
four bytes and I have an array of 8 of these, then the size of the array is 
32 (bytes). I’m sure the editor will kill me for digressing but if you want to 
see these addresses, try the following: 


int c; 
for (c = 0; c < num_of_words; ++c) 
printf("Word %d is at address %d.\n", c, word[c]); 


If Pd used a %s with word[c] then I’d have got the string of characters 
at the address word({c]. I'll leave you to experiment. Now, where was I? 
Setting up the original positions: 


int c; 
for (c = 0; c < num_of_words; ++c) 
pos[c] = 


Told you it was simple! But a question for you — why is it correct to have 
c < num_of_words? After all, there are 8 pos[] elements and it won’t set 
the eighth one, will it? 


Sorting the Words With Their Original Positions 

For this I borrowed a quicksort routine from a text book, and amended it 
for my needs. I used quicksort because I was told it was ... ‘quick. It is 
also a chance for programmers to write a recursive function. If you don’t 
know what the word means, this was taken from a dictionary: 


Recursive, adj. See recursive. 
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quicksort splits a list into sections and then goes of to "i 
While doing this, it (again) splits the section into Smaller 
sections and goes off to sort each section. While doing this ... Okay ae 
get the idea (of recursion). It finishes when it finds that each section js only 
one or two items, sorts these and then goes back a stage. At least, I think 
that’s how it works. Get a book from a library if you must know ~ okay? 


I’ve included a standard quicksort function (which calls itself recursively) 
e that this function does not deal with the original position 
il] take an array and sort it but you won't be able to 
all. You could call this function using: 


Apparently, d 
each section. 


in figure 1. Not 
array. This function w 
backtrack to the original list at 


quick_sort(word, 0, num_of_words - 1); 


Of course, you know about the num_of_words ~- 1 at this stage. How- 
ever you may not realise how the sorting is performed. The words are not 
swapped; instead, the list of pointers declared at the start are re-arranged. 
In other words, the order in which the actual words are stored remains 
unchanged but the list (that the computer has of the location in memory 
of each string) is altered. It is much more efficient to swap a few bytes 
around than a number of variable length strings. After the sort, if you 
ask for word[2] you'll get what the computer now believes is word [2], 
i.e. whatever it finds stored at word [2] ’s memory address. 

Typically, I wanted the sort to do more than this. I wanted to be able to 
print out the words in their original order. I could easily find any word and 
determine its former position — I needed another array back [0] , back[1], 
back[2] ... which would help me here. Each element of back ] would tell 
where the word which was in that position had moved to after the sort. 


This table might help: 
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book 


concerned 
hobbits 


prologue 
this 
book 

is 
largely 
concerned 


1S 


largely 
prologue 
this 
with 


Balls cad 


IOP WHF o 


=>) 


void quick_sort(char **array, int start, int end) 


{ 


short low = start, 
high = end; 

char temp, /* Used for swapping * / 
*separator;  /* Word where the split occurs */ 


separator = array[ (start + end) / 2]; 


do { 
while ( strcemp(separator, array[low]) > 0 ) 
lowt+; 


while ( strcmp(array[high], separator) > 0 ) 
high--; 


if (low < high) { 
temp = array[low] ; 
array([lowt+] = array [high] ; 
array [high--] = temp; 

} 

else if (low == high) 
low ++; 

} while (low <= high); 


if (start < high) 
quick_sort(array, start, high); 


if (low < end) 
quick_sort(array, low, end); 


Figure 1: A simple quicksort 
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/* i 
« QUICK_SORT_TAG(array, start, end, tag array, back array) , 


4 | | */ 
void quick_sort_tag(char **array, int start, int end, 
short *tag, short *back) 
{ 
short t; t 
' for (t = start; t <= end; ++t) 
tag(t] = t; 
do_q_sort_tag(array, start, end, tag); 
for (t = start; t <= end; ++t) 
back(tag[t]] = t; 
} 


Figure 2: The main function for a quicksort with tag array 


If you were to print the words in the order of the last column, you should 
get back the original set of words. Test this with: 


int c 


for (c = 0; c < numof_words; ++c) 
printf("Word %d was %s.\n", c, word[back[c]]); 


I'll leave you to figure out how I set up this back[] array — the answer is 
in figure 2. 

To perform the sort which will also retain the original positions of the 
words, I had to make some changes. These should be apparent in figures 
2 and 3. The function which calls itself (figure 4) has been separated from 
the main quick sort function (figure 2). You call this function using: 


quick_sort_tag(word, 0, num.of_words - 1, pos, back); 
You'll also notice that | used short integers, partly to save memory and 
partly because I'd never used them before and I couldn’t resist trying thet 


Searching For a Word 


I don’t a at this stage, that you'll believe me if I say this is really 
ri real. I’m going to use a Binary Search (figure 3) - possible now, 
vane vocabulary is sorted, The search function can be called using: 


answer = bsearch(word_to_look_for, word, num_of_words - 1); 
if (answer == -1) 

printf("Oops ... that word isn’t in the list!\n"): 
else 

printf("That was word %d.\n", pos[answer]); 


I've used pos[answer] instead of answer because I assumed you’d want 
the original placing of the word. If you don’t, use answer which is the 
new/current position in the array. So now you can set up, sort and search 
through a list of words - what more could you possibly want? Yes... you 
want to know how to mark each word as an adjective, noun, etc. That 
sounds like another array and, just in case you’re clever enough to sort that 
out [Just when I thought we’d make it to the end of the article without a 
pun — Ed| remember to include that array in the sort function. Then again, 
maybe you need to be introduced to structures — but that can wait. 


int bsearch(char *word, char **array, int count) 
{ 
int c, 
low = 0, /* First element is array[0] */ 
result; 


while (low <= high) { 
c = (low + high) / 2; 
result = stremp(word, array[c]); 
if (result < 0) 
high = --c; 
else if (result > 0) 
low = ++c; 
else 
return (c); 
} 
return (-1); 


Figure 3: A binary search 
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Aa ~ ena i ae x / 
rt_tag(char **array, int start, int end, 


yoid do_q_s0 
short *tag) 


short low = start, 
high = end, 
t; 

char xtemp, 
xseparator, 


separator = array[ (start + end) fe 2, 1; 


do { 
while ( stremp(separator, array[low]) > 0 ) 
Lowt+; 
while ( strcmp(array [high], separator) > 0 ) 
high--; 


if (low < high) { 
temp = array[low] ; 
t = tag[low] ; 
array[low] = array[high]; 
tag[low++] = tag[high]; 
array[high] = temp; 
tag[high--] = t; 


} 
else if (low == high) 
low ++; 
} while (low <= high) ; 


if (start < high) 


do_q.sort_tag(array, start, hi tag); 
if (low < end) <i eet 


do_q_sort_tag(array, low, end, tag); 


Figure 4: A quicksort with tag array 
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Switch the Toaster Off, Dear 
by Mike Davison 


Several years ago, New Tek announced the development of an Amiga periph- 
eral called the Video Toaster. At last, the Toaster was placed on sale in the 
USA at the beginning of 1991. The Camera Club do Brasil obtained one in 
early’February, serial number 1062. Should the product ever be launched 
in Europe or if anyone is thinking of obtaining an NTSC version, we’ve set 
out below our findings for future reference. 


The Toaster is a full size board that fits into the video slot of the Amiga 
2000. It is very quick and easy to fit, though a little care is needed. The 
installation of eight diskettes onto the hard drive again is very simple. Then 
power up your Amiga and if you have more than five megs of fast RAM the 
Toaster should begin its strange start-up procedure. 


The Toaster is relatively cheap at around $1,500 in the States but you 
also have to consider supporting it. It needs a 40 meg hard drive, 5 megs or 
more of fast RAM, and will work better with an accelerator. All this plus 
the cost of the A2000 if you don’t already own one. 


Now comes the hard part. To get video from VCR’s into the Toaster, 
you will have to invest in expensive TBC’s (Time Base Correctors), one for 
each channel of video up to a maximum of four. You are then ready to start 
mixing up to four channels of videotape into a final digitally dazzling, effect 
laden, super production that would put Top of the Pops to shame. The 
total Stateside cost of such a system starting from a green field situation is 
about $10,000. 

So what does it all do? For that amount of money, you get a first-rate 
Digital Video Effects (DVE) machine with 128 pre-programmed live video 
effects offering all types of swoops, Zooms, wipes, folds, twirls, blinds etc. 
One video source can swoop out over the top of another source twirling in. 
The quality is very good, but not as good as an ADO or Mirage; then again, 
look at the cost difference. 

The unit comes with a character generator which is a bit on the slow 
side when compared to Broadcast Titler or Pro Video Post but it suffices. 
There’s also a remarkable Chroma Effects unit which can create some strik- 
ing effects, a paint program which is a step up from DigiPaint, and a superb 
3D rendering and modelling program. The complete package works well and 
caused us very few problems. One can sit for hours just fiddling around with 


the DVE’s. 
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A normal camcorder or video laser output can be fed into the unit with 
no problems. but videotapes cause havoc. We play our videotapes into one 
channel only taking the output from our Panasonic MX12 vision mixer 
(NewTek don’t tell you that in the manual.) 

Now on to the negatives in the story. The units on sale at the moment 
(March) are called Gamma Test Versions. As the manual explains, neither 
the software nor manual are completed. Our manual has no illustrations in 
it, which can be very frustrating with such a complex piece of kit. 

Once the Toaster is in its slot, you lose a great deal of control over the 
computer. For example, you cannot use an external genlock to overlay 
computer images on top of live video. A lot of existing software will not 
run properly with the Toaster in place. To use, say, Broadcast Titler with 
our SuperGen genlock, the Toaster must be removed from the computer. 
This is not a big job, taking about fifteen minutes, but neither the Toaster © 
nor the Amiga’s connectors will take much of this kind of handling. We 
got to the stage of making an external box and lead out connectors so that 
we could make disconnection easier, but it didn’t work because of the noise 
picked up by the external cabling. 

Another annoying thing is that since we registered the unit (three months 
ago) we’ve had no word from NewTek telling us what is going on with our 
illustration-laden manuals or fully tested software. 


However, considering all of the pros and cons, the Toaster is a superb 
piece of equipment and I don’t think we could live without it now. 


Did You Know ... 


If you have an Amiga 3000, you'll know that you can select which version 
ok Kickstart to use when you power up — either 1.3 or 2.0. The appropriate 
Kickstart file is loaded off disk and remains in memory until you change it. 
However, did you know that the A3000 has a third version of Kickstart! 
This is the version that resides in ROM. 


N ormally, it is only used to display the Kickstart boot menu. However, 
there is an invisible close gadget in the top left corner of the boot screen 
which you can click on. If you do, you'll find yourself running under Kick- 
start v36.0 - a really early version. It’s too bug-ridden to be of much real 
use, but you do get back an extra 512K of RAM ... 
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How To Win an Oscar 


by Geoffrey J. Reeves 


Of course, it s turned off - WHAT?!? - you're recording this? Oh dear 
(translated from Nilcoolian) ... all in a day's work for CUGI. Genlocks are 
fun but they are very time-consuming things. It does, of course, belong to 
the club and is available to the members when not being used for meetings. 
We didn't intend getting a genlock at the time - we had a more pressing 
problem: we couldn’t show videos on our RGB monitor. We had investi- 
gated various solutions — including a tuner costing about £65 (sterling). 


Eventually someone had the bright idea about getting a genlock to do 
the work. After all, it had to take camera pictures and display them on the 
Amiga’s RGB monitor and so an RGB output had to be present. A quick 
call to Commodore confirmed our hopes and one was ordered. Costing us 
less than IR£100, it was indeed a bargain. Then the possibilities began to 
be seen ... 


Although, some of these seem daft, we may yet find a use for the following 
applications: 


e Merging a C64 output with an Amiga’s so that the C64 has pull-down 
menus ;-) 


e Viewing a video on an RGB monitor. Furthermore, by using a blank 
screen, and turning on the genlocking, the mouse pointer can be used 
over the video as an indicator. 


o Splitting the Amiga’s RGB output so that, at meetings, a demonstrator 
can see (in colour) what the audience sees. Previously, the demonstra- 
tor saw black and white. 


e Making Oscar-winning videos with titling, icons, etc. 


On the serious side, the genlock is Commodore’s A2300 (or A2301 since it’s 
the PAL version) and it slots into the video slot on an A1500 / A2000/ A3000. 
Unfortunately, this is also where the flicker fixer plugs in, so if you need to 
use both, you'll have to settle for an external Genlock. 

~ The A2301 is a fairly small board and has just three connectors and a 
three-way switch. The connectors are Video In (e.g. from a camera), video 
out (e.g. to a video camera) and a second Amiga RGB video port. The 
switch can be set to display: 
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1, Amiga only - the usual output 
2. Merged Video In and Amiga (the fun bit!) 
3. Video In only (for previewing) 


At this point, I realise that some readers may be wondering “What is 
a genlock?”. Mind you, they may have given up on this article already. 
Anyway, for those who didn’t know ~ a genlock allows you to take a live 
picture from a video camera or a pre-recorded one from a video player 
and to merge it with your Amiga display. A simple example of this is the 
TV news. The newsreader sits at a desk while a small picture hangs just 
over her shoulder. That picture is not projected on some little board or 
whatever - it is on a computer somewhere and it and the newsreader are 
cleverly merged. You must note, however, that the small picture must be 
placed in front of the newsreader or her surroundings. In fact, it’s nothing 
more complicated than putting up credits at the end of a programme. 

Some words of warning, if you are thinking about making a video. It 
takes time- lots ’n lots of time. Tom, Aidan and myself took about 12 hours 
to produce an eleven-minute video and we definitely won’t be winning an 
Oscar. Also, Colm O’Rourke demonstrated a more expensive genlock a 
while ago and pointed out that broadcast genlocks cost lots. Our little 
genlock is just that — little. 

But let me not end on a sad note. In fact, I can end on a hopeful one. 
Tom has been rummaging through a technical manual for the Amiga and 
tells me that it might be possible to build a box to take our genlock via a 
cable connected to the standard Amiga RGB port. The purpose? Simple - 
A500 owners could use it. Now that would be nice! 


Pe ee dal Diem 
Did You Know ... 


Here’s an unusual trick that exploits an Intuition bug present in Kickstart 
1.2 and Kickstart 1.3. Click on the titlebar of any window and keep the left 
button pressed. Then press Left-Amiga/M (make sure you don’t have any 
other screens open). Now, you should find that you can drag the outline of 
the window off the edge of the screen. (Whatever you do, don't let go of 
the button offscreen or you'll meet the man with the red hat.) 
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Programming With Forth: Part 1 
by Thomas Rolfs 


Forth is the invention of one man, Charles H. Moore. It all started way 
back in the sixties: Moore, not happy with the productivity of computer 
systems of the time, set about building software tools that would help sim- 
plify programming and increase productivity. (Back then, programming 
was really programming. Writing operating systems and compilers was ex- 
tremely hard and error prone. Debugging was a nightmare.) Moore’s work 
eventually led to the creation of a language called FORTH, around 1970. 

Forth was originally to be called FOURTH, as its inventor felt it to be a 
fourth generation language. However, the IBM 1130 on which FOURTH was 
implemented only provided five character file names, so Moore shortened it 
to FORTH. The rest, as they say, is history. 


Then again, what is the history of Forth? Maybe in a later issue I 
will elaborate on what has happened to Forth from 1970 until present. 
For now Ill just say that Forth reached its highest prominence around 
the late seventies and early eighties, resulting in the creation of FIG (The 
Forth Interest Group). It is used extensively throughout the embedded 
systems domain, being the language of choice where speed and compactness 
is paramount. It has not made it into the main stream of languages and is 
not likely to be found on any computer science syllabus. However, it 1s very 
much a living language used for real-world applications and will continue 
to be used for a long time to come. 

So, what is Forth? The aim of this series is to present the Forth language, 
its workings and philosophies, to those interested in different approaches to 
programming. You most likely will never use this elegant yet enigmatic 
language. However, from a programming point of view a lot can be learnt 
from Forth: C and BASIC are not the only ways to program a computer. 


Is it a bird? Is it a plane...? i 
Forth operates at many different levels and it’s very hard to say which 
level, if any, constitutes the essence of the language. The main hurdle 
to understanding Forth is its radically different approach to a ana 
compared to the more traditional languages. It breaks a lot of meine 

preconceptions about what a programming language should be and do. 
This means newcomers to Forth find very little about the La = 
is familiar, or worse, they mistakenly try to use Forth as they would 4 
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traditional language. Still, it isn't a difficult language to learn once you get 
used to the idea that it’s just different. 

Forth is a programming language. It is also an operating system. a 
programming environment and a philosophy for solving problems. The 
Forth environment is interactive and responsive. You can interact directly 
with the language via the keyboard and incrementally compile and test 
sections of code on the fly. This makes for very fast prototyping and short 
edit—compile—run—re-edit cycles. 

The language itself is extensible and mutable, giving the programmer 
full control over syntax and form. This allows the language to be altered to 
better address the problems at hand, meaning you are no longer forced to 
think of problems in terms of some predefined, third party semantics but 
instead are free to create your own, more suitable structures. This approach 
has its drawbacks. Not everybody likes messing about with language struc- 
ture; most are happier with a language that is, to all intents and purposes, 
set in stone. Still, if you can handle Forth’s flexibility without losing sight 
of your goals, you might find yourself reluctant to use anything else. 


The most powerful thing about Forth is its philosophy: keep it small 
and simple. Forth is small and simple. Indeed, not many people can, or 
rather would want to, churn out a C compiler. Anyone with an ounce 
of programming ability can implement a Forth interpreter. Indeed, if you 
follow this series through to the end, you should be able to implement your 
own Forth interpreter with only a little help. 


This simplicity is what affords you complete control over the language. 
However, it also means that you have to take on board more responsibility 
for what you do and utilitise greater discipline in how you do it; it is too easy 
to write cronic Forth code and this is probably a major factor in Forth’s 
lack of acceptance as an alternative mainstream language. We can only 
really explore this aspect of Forth when we start coding, though this won t 
be for a few issues yet. 

Forth code is also very fast. Not as fast as batch compiled languages 
such as C, but then these languages lack the advantages of interpreted 
languages. Forth, on average, is about twenty times faster than BASIC, 
and is more compact than assembler. | hope to look into the whole area of 
code execution speeds, not just in Forth, in a later issue. 


Forth in Embedded Systems 
Because of its speed and compactness, Forth is used very successfully in the 
embedded, real-time systems domain where resources are scarce and (real) 
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events must be handled within strict time slots. Forth is often used here as 
an operating system to control, service and monitor hardware. A typical 
Forth system can fit easily onto an 8K ROM and needs only a small amount 
of RAM to run. 


An example where Forth has been put to good use is in the Sun SPARC- 
station. Sun (thanks to Mitch Bradley, Forther supreme) use an embedded 
Forth kernel to bootstrap all their systems on power up, as well as providing 
built-in interactive debugging and diagnostic facilities (similar in concept to 
the Amiga’s ROM Wack). Because the Forth kernel is very small, Sun have 
been able to reduce the size of their Boot ROMs and thus save on man- 
ufacturing costs, as well as having a very flexible and uniform diagnostics 
sub-system on all their models. 


Setting Forth 

Hopefully this gives you a feel for Forth and some of its capabilities. It’s not 
the be-all-end-all of programming languages (no language can be), but it 
does have some very good ideas and a fresh approach, making it a useful and 
interesting language to know. Maybe you are intrigued enough to explore 
further? If so, just settle back and we’ll begin our trek, into the Forth 
dimension ... 


A brief word before we start. During our journey I will try to keep things 
as simple as possible. However, I do assume the reader to be familiar with 
concepts such as pointers, and abstract data types such as stacks and linked 
lists. An understanding of microprocessors and machine code will also be 
very useful. But don’t fret; if there is anything you don't understand, find 
someone who can help explain away grey areas. Learning about Forth is a 
good way to find out more about computers and how they work, especially 
at the lower levels. 


The Forth Virtual Machine 

We need to understand how Forth works internally before we can really 
look at the language itself. We need to understand the mechanics of the 
language. I have already talked of Forth as an operating system im the 
embedded systems domain. It is from this role as a stand-alone system 
that we first look at Forth. Operating system is too grand a description 
(though Forth can be easily extended to one). The kernel of the Porth 
system is more correctly termed a Threaded Virtual Machine or Thread 


Code Interpreter. We’ll just call it the Forth Virtual Machine. 


What do we mean by a virtual machine? Like a real machine, our Forth 


system consists of ‘moving’ parts that interact together to perform 
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work. Of course it’s not really a machine, so we called it an imaginary or 
virtual machine. 

There are five main parts to the Forth machine: an INTERPRETER, a 
DICTIONARY and a LIFO (Last In First Out) temporary data storage facility 
called the DATA STACK or PARAMETER STACK, as well as an INNER INTER- 
PRETER and RETURN STACK. Apart from the last two, we will look at each 


component and its function in turn: 


The Interpreter 
The Interpreter - more correctly called the Outer Interpreter — accepts input 


from the current input source. This could either be from the keyboard or 
from some secondary storage device. The input 1s treated by the Interpreter 
as being made up of a single stream of characters, called the input stream, 
which it breaks up into groups of individual words. The Interpreter tries to 
interpret each of these words as they are fed to it. 

The definition of a word is ‘any sequence of characters bounded by 
whitespace’, i.e. spaces, tabs and carriage returns. For example, the fol- 
lowing sentence, in Forth’s view, contains five words: 


I think, therefore, I am. 


The Interpreter would try to process ‘T ‘think,’ ‘therefore,’ ‘I’ and ‘am.’ in 
that order. Note that punctuation characters are not treated any differently 
to other characters and are considered part of a word, so ‘think,’ is spelt 


with a comma. 

The actual interpretation carried out is really quite straight forward. 
When a new word arrives, the Interpreter first looks to see if it is listed 
in Forth’s Dictionary of known words (described further on). If it finds a 
Forth Word with the same spelling, the code for this Word is executed. 

If the Interpreter cannot find a matching Forth Word, it then checks to 
see if the input word is maybe a number. If it is, the binary value of the 
number is pushed on to the Data Stack (see below). If it is not a number 
then the Interpreter signals an error and resets the Forth machine. 


The Data Stack 
The Data Stack, also called the Parameter Stack, is a temporary storage 


place for data. Its operation is Last In First Out; that is, the last item 
to be pushed on to the stack is the first one to be pulled off - analogous 
to a stack of dishes. Forth Words use the stack for passing parameters to 
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Figure 1: The Forth Virtual Machine 


one another and for doing intermediate calculations. Also, as we have seen, 
numbers found in the input stream are placed here. 


The Dictionary : 

The Dictionary is the workhouse. for the Forth virtual machine. Every- 
thing of consequence happens here. For the moment we are only concerned 
with its principal function as a structure for holding Forth Words and their 
definitions (their code). 

What is a Forth Word? A Forth Word (with a capital W so as to dis- 
tinguish it from a ‘word’ found in the input stream) is equivalent to a C 
function or BASIC subroutine. They are invoked by typing their name (see 
description of Interpreter above). Their action could be as trivial as the 
addition of two numbers, or as complex as the initiation of a spreadsheet. 
Words are a very powerful abstraction, akin to ‘objects’ found in object- 
oriented programming methodology. Everything in Forth is a Word (the 
Interpreter itself is a Word). 

To help you visualise the Forth machine better, I have put together a 
graphical mind’s eye view of the Interpreter, Dictionary and Data Stack, 
shown in figure 1. Also included in the figure is the INNER aga eb 
and RETURN STACK which I haven’t said anything about yet. For the 
Moment, just ignore them. We will deal with both in the next issue when 
we look at a thing called threaded code. 
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The Working Machine 
So far I’ve only given a basic outline of the Interpreter, Data Stack and 


Dictionary. Let’s see how it all works together with an example. Say I 
typed in the following line of input from the keyboard: 


123 5 + — OK 
(The — represents the enter key. What comes after the enter key is output 
from the Forth machine. In this case, we just get the word ‘Ok’ which 
means that Forth has carried out our instructions successfully. ) 

What happens? The Interpreter interprets from left to right (as do we). 
It places the values ‘123’ and ‘5’ onto the Data Stack (as they are numbers). 
It then searches the Dictionary for the Word ‘+’ (Plus) which it executes. 
‘4? takes the top two items from the Data Stack (which in this case happen 
to be 123 and 5), adds them together, and puts the result back onto the 
stack. The Interpreter has now come to the end of the input without any 
fatal mishaps, so it prints ‘OK’ to the screen to let you know that all went 
well. | 

If we want see what the result was we can type: 

. — 128 OK 
The Word ‘.’ (dot) simply removes the top item from the stack and prints 
it out to the screen. If we wish to see the result and still use it in another 
calculation, we would have had to type: 


DUP . — 128 OK 


The Word ‘DUP’ duplicates the top item on the stack, so we now have, 
in this case, two 128’s on the stack. We print out the duplicate using the 
Word ‘.’ (dot), with the original still intact for further use. 


Creating New Words 

We have looked at the operation of the Forth virtual machine. We have 
seen two or three of its predefined Words and how they interact with the 
Interpreter and Data Stack, as well as how we can, very simply, use the 
stack to do calculations. However, we can also create our own Words. Each 
new Word we create becomes part of the Forth Word Set (part of the Forth 
Dictionary of known Words), and is indistinguishable from the rest of the 
predefined Words such as ‘+’ (plus) and ‘.’ (dot). 


This ability to extend the language is another attractive feature of Forth. 
We are not restricted to only those Words that Forth comes packaged with. 
We can add our own Word extensions, and they immediately become part 
of the language. Thus, Forth is an extensible language. For example, say 
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we needed to be able to square a lot of numbers. We could do it for one 
number, with the following sequence: 


DUP * 
‘DUP’ first duplicates the top stack item, so it now appears twice. * 
(multiply) multiplies the top two items together. So, the above sequence, 
causes the top item on the stack to be multiplied by itself and thus squared. 
If you don't believe me, you can test it yourself by simply typing: 

10 DUP * . — 100 OK 


(Remember: + is the enter key and what comes after it is output from the 
Forth machine.) 


Ok, the ‘DUP *’ sequence achieves the desired result of squaring a num- 
ber, though it is not immediately obvious that it actually does this. Indeed, 
any code we write using ‘DUP *’ would look meaningless to an outsider. Ide- 
ally what we need is a new Word called ‘Squared’ whose action is ‘DUP *’. 
In Forth, we can create such a Word very simply by typing: 

: Squared DUP * ; — OK 
And immediately test our new word to see if it works: 

4 Squared . + 16 OK 
And of course, ‘Squared’ is much more meaningful than ‘DUP *’. 


Compilation Of New Words 
Let’s look at the ‘Squared’ definition again and see how Forth went about 
adding this new Word to the Dictionary: 

: Squared DUP * ; 

As we know, the Interpreter interprets from left to right, so the first Word 
it executes is ‘:’. The following steps take place: 

Step 1: The Word ‘:’ (colon) takes the next word out of the input stream, 
in this case ‘Squared’, and creates an entry in the dictionary with this name. 
It then signals the Interpreter to go into COMPILE mode before it itself 
terminates execution, reverting control back to the Interpreter (remember 
the Interpreter invoked ‘:’). 

Step 2: The Interpreter resumes interpreting the input stream. Tantei? 
of starting at the word ‘Squared’ it actually starts at the word ‘DUP bg the 
word ‘Squared’ has already been removed from the input stream by “? when 
it created the Dictionary header for the new definition. As the ea ren IS 
now in compile mode, it does not try to invoke ‘DUP’. Instead, 1t comp = 
‘DUP’s CODE FIELD ADDRESS (an indirect pointer to ‘DUP’s code) into the 
next entry of ‘Squared’s definition list in the Dictionary. 
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Step 3: Now, Step 2 is repeated for each Word in the input stream, Ip 
our example there is only **” left to handle. Its code field address (CFA) js 
also compiled into ‘Squared’s definition list. Figure 2 shows roughly what 
our new Word looks like in the Dictionary. As you can see, ‘Squared’ ic 
just a list of array of indirect pointers to other Forth Words. When we 
execute ‘Squared’, a special code interpreter will run through ‘Squared’c 
CFA list and execute each Word in turn. We will look in detail at the code 
interpreter, called the INNER INTERPRETER, in the next issue. 


Step 4: Finally, the Interpreter comes to the IMMEDIATE Word ‘>’ (semi- 
colon). Immediate Words are always executed, regardless of whether the 
Interpreter is in compile mode or not. ‘;’ compiles the CFA for the word 
‘(;)’ (bracket semi-colon) into the CFA list for ‘Squared’. ‘(;)’ has exactly 
the same effect as ‘RTS’ in assembler, or return in BASIC and C; in this 


case, it returns control back to the Word which called ‘Squared’. 


Last of all, ‘;’ ratifies the new Word ‘Squared’ so that it officially becomes 
one of Forth’s known Words, and puts the Interpreter back into Interpret 
mode. Now we can use ‘Squared’ just like any other Word in the Forth 
dictionary; it has become part of the language. 


Compilation Of Numbers 
For completeness, I better describe what happens when you use numbers 
in a definition. Suppose we need a Word to calculate 3x7. We can create a 
new Word called ‘3Squared’: 


: 3Squared Squared 3 * ; 


As before, ‘:’ creates a new entry in the Dictionary called ‘3Squared’ and 
the Interpreter compiles the CFA for our Word ‘Squared’ into ‘3Squared’s 
list of CFA’s. It then tries to compile the word ‘3’. However, as the word 
‘3° is not defined, it does not have a CFA for the Interpreter to compile. 


What the Interpreter does instead is to compile in the CFA for a Word 
called ‘(LIT)’ (Literal), immediately followed by the value 3 in the next CFA 


entry. The Interpreter then carries on as normal. The final compilation is 
shown in figure 3. 


_ When we execute ‘3Squared’, the code interpreter goes through the CFA 
list and executes the code pointed to by each CFA. First it calls ‘Squared . 
Then it calls ‘(LIT)’. What ‘(LIT)’ does is to take the contents of the next 
entry in the CFA list and push its value (in this case 3) onto the Data Stack. 
Ít then increments the code interpreter’s CFA list pointer so that execution 
“ormmmences at the CFA entry for ‘*’: otherwise, the code interpreter would 
try to execute the number 3 which would probably crash the machine. 


Summary 

We have covered quite a lot of ground in a relatively short space. Don’t 
worry if you haven’t understood everything completely. This first article is 
only meant to break the ice. We will get a chance to go over things more 
thoroughly and in greater detail in due course. To help break the ice more 
I have given some simple exercises at the end which some might want is 
try. For now, let’s recap on what we have covered: 


e We have looked at the Forth Virtual Machine and its main components: 
the Interpreter, Data Stack and Dictionary. 


o We have seen how new Words can be created using ‘:’ and ‘:’. 


e We have seen how the Data Stack can be used to pass parameters and 
do intermediate calculations, e.g. ‘Squared’. 


e We have looked, in some detail, at how the Interpreter works, both 
in normal INTERPRET mode and in COMPILE mode. The following 
pseudo-code describes its operation: 


begin 
Get nezt word from the input stream 
if word in dictionary then 
if in compile mode then 
if immediate Word then 
Ezecute Word 
else 
Compile Word (CFA) 
else 
Execute Word 
else 
if word is a number then 
if in compile mode then 
Compile ‘(LIT)’ + value 
else 
Push value onto Data Stack 
else 
Quit (unknown word) 
end 


April 1991 


Exercises | 
I have given some problems here ~- very simple ones - that you might want 


hey might help what we have cover so far sink in better. First 
hat you may need: 


Description 


Duplicate item on top of stack 


to try. T 
here are some Words t 


Effect on Stack 


(nnn) 

(nl n2 > n2 a1 ) Swap top items on stack 

( nl n2 n3 > n2 n3 n!) Rotate top three items on stack 
(nl n2 > nl n2 n! ) Duplicate second item on stack 
( nl n2 > nl+n2 ) Add 

(nl n2 > nl*n2 ) Multiply 

( nl n2 > nl-n2 ) Minus 

(nl n2 > n1/n2 ) Divide 

(n—-) Print item on top of stack 


The stuff in the brackets is standard Forth stack notation. ‘n’ represents a 
signed number. The left hand side of the arrow indicates the state of the 
Data Stack before the the corresponding Word is called. The right hand 
side shows the state of the stack after the Word has completed execution. 


1. Create words to do the following calculations: 
Word Equation 
Addì z+y+z 
W1 rt +2y+z+4 
W2 r*(y+z)*2 
Words are called with values for z, y and z on the data stack. For 
example: 


10 20 4 Add3 ( x y z — result) 


2. Create the new Word ‘Average’ which will calculate the average of 3 
numbers passed on the data stack. For example: 


10 11 12 Average . — 11 OK 


3, Sketch the Dictionary entry for ‘Average’ as shown for ‘Squared’ 12 
figure 2 and ‘3Squared’ in figure 3. 


4, If each CFA cell in ‘Average’s Dictionary entry takes 4 bytes (32 bit 


" lls) ignoring size of header, calculate how much memory your defini- 
tion uses up. 


Word Header CFA List 


DoF 
Ete om 


Figure 2: Dictionary entry for Squared 


5. What is the smallest size you can reduce the Word ‘Average’ to? (Hint: 
You can use previously defined Words.) 


Forth Interpreter For the Amiga 

You might like to test your answers for questions 1 and 2 on an actual Forth 
i interpreter. I would suggest that you use an implementation called A4th 
that exists for the Amiga. (If you don’t have an Amiga, well... ask around 
for a suitable one for your system, e.g. F83 for PC’s.) 

You can get A4th from Infomatique as the file A4THSYS.LZH. This 
| archive contains many files and Forth extensions, though all you need is the 
| executable A4TH. To extract A4TH from the archive you will need a program 
called LHARC which you run from a CLI with the following command line: 


lharc x a4thsys.lzh a4th 
When you execute A4th you will get a new window into which you can type 
your answers. Remember that you must put at least one space between 
each word. For example, ‘:Squared dup *;’ won’t work. Also, A4th 1s case 
Sensitive and all predefined Words are in lower case. Oh yes — to quit A4th 
Just type the Word ‘bye’. 

If you have any problems, queries or answers, send them to Thomas Rolfs 
either on Infomatique or TOPPSI, or on Usenet at trolfs@dbug.hobby. 1e. 
Alternatively, catch me at any CUGI meeting. 
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————— —S—<“<—S*S:é 


Word Header CFA List +Data 


"Squared" —[crafcea| 3 |cra|cra 


| “Squared” | 
(Ty | 
Cail 


Figure 3: Dictionary entry for 3Squared 


Next Issue | 

In the next issue we will finish up with the Forth Virtual Machine by looking, 
in some detail, at threaded code, the Inner Interpreter and its Return Stack, 
as well as the structure of the Forth Dictionary. After that, we can start 


looking at the Forth Word Set (i.e. the language) and get down to writing 
some code. Until then ... 


© Copyright 1991 by Tommy Rolfs. 
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For Sale 


Brain Boxes C64/C128 (switchable) IEEE interfaces (two units) and 
CBM 4040 twin disk drive with cables, etc. — for use with Commodore 
Pet or Commodore 64/128 via InterPod or Brain Boxes interface. Also 
20Mb Hard Drive suitable for PC. Power supply and metal case 


for external hard drive. Any reasonable offer considered. Phone Geoff at 
288 3863 if you’re interested. 
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Rocco’s Rumblings 


by Rocco Matassa 


Ah! ‘tis that time of the year again. Yep, the ol’ newsletter is due. and 
Fd the ed is on the warpath a-whooping an’ a-hollering ‘cause its Hines to 
get them articles in. Guess I'll be last again, ‘cause everybody probably 
handed theirs in weeks ago. Maybe mine’ll be rejected on account of there 
being no room left in the newsletter. Still, better put the effort in. Now 
on what subject shall I compose my thoughts? | 


Computers? Hmm, that’s a wide sweeping canvas, although I’m sure I 
covered the subject once; I guess that’s fine for a few years yet. Let’s try 
and zero in on the matter. Monitors? Yep, let’s go for it. Oh no! Tom did 
that, and cables, connectors, SCART, modulators and oh, dogone that. 

Genlock, the club’s newest arrival. Yeah, that’s not a bad idea. Mind 
you, some ornery creature has probably got in there ahead of me, maybe 
even a whole posse o’ them. Drives, let’s see. Hard disks, virtual floppies, 
partitioning, recovering — hell, damn and blast but the ed’s got in ahead of 
me. Mind you that’s not to say it couldn’t be done better. Nah, I’d never 
get another article published. [Go ahead, make my day - Ed] | 

You know, this isn’t easy. There’s a whole posse of claim jumping, land 
grabbing bandits out there. Okay, languages. C? Nope, been claim jumped 
there. Basic? Who’d read it. Assembler? Bushwacked again by them 
bandits Jesse Broadberry and Billy McArdle. 

I know, a buyers’ guide. How to import your computer, peripherals or 
software from abroad. Got t’ get me an angle here. Well blow me down, 
the law is here: marshal Sam Walsh, fastest tongue in the west. Could do 
music. Mind you there ain’t much call for heavy metal on the Ami and I 
ain’t so hot on square dancing. [Right on both counts — Ed] 

Printers, word processors, text editors. Nah, railroaded by Babyface 
Reeves, wouldn’t do any blame good to cross swords with the sheriff. ae 
I am, a ready to communicate with the world and been ambushed on , 
sides, hey! Communications: modem, software, bulletin boards, protoco’, 
newsnets; no, been beaten by Little Big Ward, the halt scalpet . 

I just gotta get me an article somewhere. Alterations and mending, 

ching ROMs, dry solder 
one meg chip RAM, two megs trapdoor RAM, switching eo 
joints and drilling holes. Yep, there’s the article for me, just as Soo” Could 
law take out the Hole in the Wall gang: Decko, Tommo and see for 
do a different computer, [sotto voce, look over both shoulders] a 
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Ah mean what low life would think that low? Yep, got me an 


_ dang and blast there’s someone here already. Yep, Brian Ward 
‘s a real mule skinner. i 


instance. 
article .. 
pC librarian. That man 

Review the year? Nope, that's the chairman’s job. Discussion on the 
nancial health of the club? Oops, maybe I should leave that for the trea- 
surer when he returns from Greece. Short stories or maybe a poem - great, 


a really original idea. What!?! Who the hell is this guy Colm? 


Crosswords. Yeah, I got a few of them. Mind you, maybe that should 
be under languages. The evolution of CUGI? I wasn’t here for the begin- 
ning. The evolution of the computer? Actually, I’ve done that. Games, 
joysticks, tips, solutions, advice letters, jokes. You know, everything been 
done already. I wonder if the others know. I don’t think it’s worth writing 
an article for this issue, if they even print one... 


For your Diary 


As our regular members know, CUGI takes a break for the month of August. 
So the meeting on 26 July will be the last for a little while. Make a note of 
the following: 


Last meeting before the break. 
No meetings. 

Back again! 

The Chairman’s holiday snaps 


OR the Amiga 4000. 
(whichever seems the more interesting) 


Sept. 20 ... the Chairman’s holiday snaps. 


Please note that the items advertised may be subject to change without 


notice. Have a good s in 
eae ompaLny 
September. er and we look forward to your comp 


